function C2I(varargin)
%**********************************************************************
%*** * Autopilot Initialization Module
%*** * Reserved C(3510) locations are 900-999
%*** *
%*** * This module performs the following functions:
%*** * (1) Initializes the state variables
%*** *
%*** * MODIFICATION HISTORY
%*** * 13-07-2012 T Jelliffe    Added empty functions to module
%*** *
%**********************************************************************


  persistent ipl iplv ; 

  global bcom_1; if isempty(bcom_1), bcom_1=zeros(1,3510); end;
  %% common c(3510);
  %% common bcom_1(3510);

  if isempty(ipl), ipl=zeros(1,100); end;
  if isempty(iplv), iplv=zeros(1,100); end;

  %*** INPUT FROM EXECUTIVE

  % equivalence(bcom_1(2561),nip) ::;
  % equivalence(bcom_1(2562),ipl(1)) ::;
  % equivalence(bcom_1(2867),iplv(1)) ::;

  %*** STORAGE OF STATE VARIABLE LOCATIONS

  iloc=914;
  for i=1:2;
  ipl(nip)=fix(iloc);
  iplv(nip)=fix(iloc+1);
  iloc=iloc+2;
  nip=nip+1;
  end; i=2+1;

  writef(1,['%s '], 'Autopilot Init');

return;
end %subroutine c2i
%**********************************************************************